home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc2_x / adrephon.sit / AddrePhone 1.0 / card_10867.txt < prev    next >
Text File  |  1991-02-05  |  2KB  |  85 lines
  1. -- card: 10867 from stack: in.0
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 10627
  5. -- name: Master index
  6.  
  7.  
  8. -- part 13 (button)
  9. -- low flags: 00
  10. -- high flags: 8000
  11. -- rect: left=458 top=27 right=71 bottom=503
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 32670 / 32670
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Re-Index
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   openSpeed
  23.   put empty into fld id 1
  24.   push card
  25.   put empty into bun
  26.   go bg 1
  27.   put the number of cards in bg 1 into y
  28.   repeat with x=1 to y
  29.     percent x,y
  30.     go card x in bg 1
  31.     put bg fld id 18 into name
  32.     put bg fld id 24 into bday
  33.     put word 1 of bg fld id 2 into phone
  34.     if phone is empty then put moreSpace(13) into phone
  35.     put the length of name into lang
  36.     if lang ΓëÑ 28 then
  37.       put (char 1 to 29 of name)&"ΓǪ" into name
  38.       put 30 into lang
  39.     end if
  40.     put name & moreSpace(32-lang) & phone into hi
  41.     if bg fld id 7 is not empty then put "*" into char 32 of hi
  42.     if bday is not empty then
  43.       if checkBirth(bday) < 15 then put" *" & bday after hi
  44.       else put "  " & bday after hi
  45.     end if
  46.     put hi&return after bun
  47.     if x mod 15 is 0 then
  48.       go bg 3
  49.       put bun after fld id 1
  50.       put empty into bun
  51.     end if
  52.   end repeat
  53.   pop card
  54.   put bun after fld id 1
  55.   closeSpeed
  56.   hide msg
  57. end mouseUp
  58.  
  59.  
  60.  
  61. -- part 14 (button)
  62. -- low flags: 00
  63. -- high flags: 0000
  64. -- rect: left=460 top=253 right=297 bottom=503
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 1020 / 1020
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: 
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   go card id 11148
  76. end mouseUp
  77.  
  78.  
  79.  
  80. -- part contents for background part 1
  81. ----- text -----
  82. Bob Hope                        (123)456-7890  01/14/23
  83. Peter Liu                      *(206)322-7852  01/16/71
  84. Test1                           (206)586-4489  08/04/65
  85.